home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / bbs_soft / mrun210.zip / TERMINAL.WAS < prev    next >
Text File  |  1993-04-28  |  582b  |  38 lines
  1. ;Terminal mode script for MailRun 2.1
  2.  
  3. integer UserHit
  4.  
  5. proc main
  6. integer char
  7. long l
  8. dialogbox 284 232 76 25 14 "Terminal Mode"
  9.    pushbutton 20 5 34 13 "E&xit" cancel
  10. enddialog
  11.     alarm 2
  12.     UserHit = 0
  13.     set aspect keys ON
  14.     when dialog call parse
  15.     l = $LTIME + 30
  16.     while (l - $LTIME) && !($KEYHIT)
  17.     endwhile
  18.     if $KEYHIT
  19.         keyget char
  20.         computc char
  21.         set aspect keys OFF
  22.         while 1
  23.         endwhile
  24.     else
  25.         set aspect keys OFF
  26.         exit
  27.     endif
  28. endproc
  29.  
  30. proc parse
  31. integer status
  32.     status = $DIALOG
  33.     if status == 1
  34.         set aspect keys OFF
  35.         exit
  36.     endif
  37. endproc
  38.